Private Sub cmb_Change()

    If cmb.MatchFound = True Then
    
        Ʈ cmb.Value
        imgƮ.Picture = LoadPicture(Filename:=ThisWorkbook.Path & "\chart.gif")
    
    Else
    
        imgƮ.Picture = LoadPicture("")
        
    End If

End Sub